vi.lilac.chaser {animation} | R Documentation |
Stare at the center cross for a few (say 30) seconds to experience the phenomena of the illusion.
vi.lilac.chaser(np = 16, col = "magenta", bg = "gray", p.cex = 7, c.cex = 5)
np |
number of points |
col |
color of points |
bg |
background color of the plot |
p.cex |
magnification of points |
c.cex |
magnification of the center cross |
Just try it out.
None.
In fact, points in the original version of `Lilac Chaser' are blurred, which is not implemented in this function. If you have any idea, please contact me.
Yihui Xie
http://en.wikipedia.org/wiki/Lilac_chaser
http://animation.yihui.name/animation:misc#lilac_chaser
oopt = ani.options(interval = 0.05, nmax = 20) op = par(pty = "s") vi.lilac.chaser() ## Not run: # HTML animation page; nmax = 1 is enough! ani.options(ani.height = 480, ani.width = 480, outdir = getwd(), nmax = 1, interval = 0.05, title = "Visual Illusions: Lilac Chaser", description = "Stare at the center cross for a few (say 30) seconds to experience the phenomena of the illusion.") ani.start() par(pty = "s", mar = rep(1, 4)) vi.lilac.chaser() ani.stop() ## End(Not run) par(op) ani.options(oopt)